inherited FPesqSubArea: TFPesqSubArea
  Caption = 'Pesquisa Sub-Area'
  PixelsPerInch = 96
  TextHeight = 13
  inherited qPadraoPesquisa: TQuery
    DatabaseName = 'BDSistema.FDB'
    SQL.Strings = (
      'SELECT * FROM SUB_AREA'
      'WHERE 1=-1')
    object qPadraoPesquisaSUBARE_DESCRICAO: TStringField
      FieldName = 'SUBARE_DESCRICAO'
      Origin = '"BDSISTEMA.FDB".SUB_AREA.SUBARE_DESCRICAO'
      Size = 60
    end
    object qPadraoPesquisaSUBARE_CODIGO: TIntegerField
      FieldName = 'SUBARE_CODIGO'
      Origin = '"BDSISTEMA.FDB".SUB_AREA.SUBARE_CODIGO'
    end
    object qPadraoPesquisaARE_CODIGO: TIntegerField
      FieldName = 'ARE_CODIGO'
      Origin = '"BDSISTEMA.FDB".SUB_AREA.ARE_CODIGO'
    end
  end
end
